home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 515 / billing.scr < prev    next >
Text File  |  1991-10-21  |  1KB  |  76 lines
  1. script 3 Billing Extract
  2. echo off
  3. clear
  4. Note "BIlling Extarcter"
  5. Note ""
  6. Note " 1. Jan"
  7. Note " 2. Feb"
  8. Note " 3. Mar"
  9. Note " 4. Apr"
  10. Note " 5. May"
  11. Note " 6. Jun"
  12. Note " 7. Jul"
  13. Note " 8. Aug"
  14. Note " 9. Sep"
  15. Note "10. Oct"
  16. Note "11. Nov"
  17. Note "12. Dec"
  18. Note ""
  19. Note "Selection: "
  20. GetString 1
  21. setstring 2 ""
  22. If string 1 is "1"
  23.   setstring 2 "Jan"
  24. endif
  25. If string 1 is "2"
  26.   setstring 2 "Feb"
  27. endif
  28. If string 1 is "3"
  29.   setstring 2 "Mar"
  30. endif
  31. If string 1 is "4"
  32.   setstring 2 "Apr"
  33. endif
  34. If string 1 is "5"
  35.   setstring 2 "May"
  36. endif
  37. If string 1 is "6"
  38.   setstring 2 "Jun"
  39. endif
  40. If string 1 is "7"
  41.   setstring 2 "Jul"
  42. endif
  43. If string 1 is "8"
  44.   setstring 2 "Aug"
  45. endif
  46. If string 1 is "9"
  47.   setstring 2 "Sep"
  48. endif
  49. If string 1 is "10"
  50.   setstring 2 "Oct"
  51. endif
  52. If string 1 is "11"
  53.   setstring 2 "Nov"
  54. endif
  55. If string 1 is "12"
  56.   setstring 2 "Dec"
  57. endif
  58. if string 2 is ""
  59.  Note "Exiting..."
  60. else
  61.  log onto "920"
  62.  sendline 1
  63.  waitfor "?"    ' Can't use waitforprompt (GENIE Bug)
  64.  erasefile "%2.txt"
  65.  capture "%2.txt"
  66.  sendline "%2"
  67.  waitforprompt
  68.  endcapture
  69. endif
  70. endscript
  71.  
  72.  
  73.  
  74.  
  75.  
  76. əəəəə